МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №1 з курсу “Об'єктно орієнтоване програмування” Варіант 8 Бунь І.П. Мета роботи: Вивчення основних опцій та можливостей меню для створення проектів у середовищі програмування Delphi Порядок роботи: По рекомендованих літературних джерелах ознайомитися з системою меню, засобами створення та відлагодження проектів в середовищі програмування Delphi. Набрати та відлагодити текст проекту. При відлагодженні вставити точки зупинки; Відкрити вікно спостереження за змінними. Змінити поточне значення деякої змінної. Відкрити зовнішній відлагоджувач Здійснити пошук оголошень. Вставити текстову заготовку. Ознайомитись з роботою Довідника. Використати контекстну підказку. Завдання Обчислення суми N-х степенів всіх чисел від 2 до випадкового числа з діапазону [2..10]. N-задається з клавіатури. Текст Програми unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Edit2: TEdit; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var N:integer; R:integer; i:integer; j:integer; sum:longint; step:longint; begin if Length(Form1.Edit1.Text)>0 then begin try N:=strtoint(Form1.Edit1.Text); except on EConvertError do ShowMessage( 'Степінь введено не вірно'); end; randomize; sum:=0; R:=random(8)+2; Label1.Caption:='Згенеровано число ='+ inttostr(R); try for i:=2 to R do begin step:=i; for j:=1 to N-1 do step:=step*i; sum:=sum+step; end; except on EOverFlow do ShowMessage('Результат перевищуэ число допстимих значень'); end; Form1.Edit2.Text:=inttostr(sum); end; end; end. Скріншоти роботи програми:

Висновок: На цій лабораторній роботі я ознайомився з основою використання візуального середовища Делфі:створення проектів, управлінням основними об’єктами палітри компонентів ,створення власних процедур та функцій з використанням властивостей компонентів.